humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

partially done coding key remapping functionality (what works: GLFW key code -> CoreKey.key_code, acting on CoreKey.key_code every frame; todo: load from config file on start up, have screen where we can remap keys, and save to config while when key mappings are changed)

Browse Source
This commit is contained in:
Humza Shahid
2025-02-16 13:45:14 +00:00
parent f2f1eeab8e
commit 0df453f9c9
3 changed files with 41 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
ffi/glfw-input.sml
View File

@@ -11,46 +11,6 @@ struct
_symbol "RELEASE" public : ( unit -> int ) * ( int -> unit );
val RELEASE = RELEASE ()
val (ARROW_UP, _) =
_symbol "ARROW_UP" public : ( unit -> int ) * ( int -> unit );
val ARROW_UP = ARROW_UP ()
val (ARROW_DOWN, _) =
_symbol "ARROW_DOWN" public : ( unit -> int ) * ( int -> unit );
val ARROW_DOWN = ARROW_DOWN ()
val (ARROW_LEFT, _) =
_symbol "ARROW_LEFT" public : ( unit -> int ) * ( int -> unit );
val ARROW_LEFT = ARROW_LEFT ()
val (ARROW_RIGHT, _) =
_symbol "ARROW_RIGHT" public : ( unit -> int ) * ( int -> unit );
val ARROW_RIGHT = ARROW_RIGHT ()
val (KEY_S, _) =
_symbol "KEY_S" public : ( unit -> int ) * ( int -> unit );
val KEY_S = KEY_S ()
val (KEY_D, _) =
_symbol "KEY_D" public : ( unit -> int ) * ( int -> unit );
val KEY_D = KEY_D ()
val (KEY_F, _) =
_symbol "KEY_F" public : ( unit -> int ) * ( int -> unit );
val KEY_F = KEY_F ()
val (KEY_J, _) =
_symbol "KEY_J" public : ( unit -> int ) * ( int -> unit );
val KEY_J = KEY_J ()
val (KEY_K, _) =
_symbol "KEY_K" public : ( unit -> int ) * ( int -> unit );
val KEY_K = KEY_K ()
val (KEY_L, _) =
_symbol "KEY_L" public : ( unit -> int ) * ( int -> unit );
val KEY_L = KEY_L ()
val exportKeyCallback =
_export "mltonKeyCallback" public : (int * int * int * int -> unit) -> unit;
val setKeyCallback =