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

begin coding functionality for remapping keys

Browse Source
This commit is contained in:
Humza Shahid
2025-02-16 12:45:29 +00:00
parent 0edeb65131
commit 47bda26da5
6 changed files with 294 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

277
fcore/core-key.sml Normal file
View File

@@ -0,0 +1,277 @@
signature CORE_KEY =
sig
(* enumeration of keys, following GLFW names
* taken from https://www.glfw.org/docs/latest/group__keys.html
* note that there is no dependency on GLFW here: it is just a plain datatype.
* *)
datatype key_code =
KEY_SPACE
| KEY_APOSTROPHE
| KEY_COMMA
| KEY_MINUS
| KEY_PERIOD
| KEY_SLASH
| KEY_0
| KEY_1
| KEY_2
| KEY_3
| KEY_4
| KEY_5
| KEY_6
| KEY_7
| KEY_8
| KEY_9
| KEY_SEMICOLON
| KEY_EQUAL
| KEY_A
| KEY_B
| KEY_C
| KEY_D
| KEY_E
| KEY_F
| KEY_G
| KEY_H
| KEY_I
| KEY_J
| KEY_K
| KEY_L
| KEY_M
| KEY_N
| KEY_O
| KEY_P
| KEY_Q
| KEY_R
| KEY_S
| KEY_T
| KEY_U
| KEY_V
| KEY_W
| KEY_X
| KEY_Y
| KEY_Z
| KEY_LEFT_BRACKET
| KEY_BACKSLASH
| KEY_RIGHT_BRACKET
| KEY_GRAVE_ACCENT
| KEY_WORLD_1
| KEY_WORLD_2
| KEY_ESCAPE
| KEY_ENTER
| KEY_TAB
| KEY_BACKSPACE
| KEY_INSERT
| KEY_DELETE
| KEY_LEFT
| KEY_RIGHT
| KEY_DOWN
| KEY_UP
| KEY_PAGE_UP
| KEY_PAGE_DOWN
| KEY_HOME
| KEY_END
| KEY_CAPS_LOCK
| KEY_SCROLL_LOCK
| KEY_NUM_LOCK
| KEY_PRINT_SCREEN
| KEY_PAUSE
| KEY_F1
| KEY_F2
| KEY_F3
| KEY_F4
| KEY_F5
| KEY_F6
| KEY_F7
| KEY_F8
| KEY_F9
| KEY_F10
| KEY_F11
| KEY_F12
| KEY_F13
| KEY_F14
| KEY_F15
| KEY_F16
| KEY_F17
| KEY_F18
| KEY_F19
| KEY_F20
| KEY_F21
| KEY_F22
| KEY_F23
| KEY_F24
| KEY_F25
| KEY_KP_0
| KEY_KP_1
| KEY_KP_2
| KEY_KP_3
| KEY_KP_4
| KEY_KP_5
| KEY_KP_6
| KEY_KP_7
| KEY_KP_8
| KEY_KP_9
| KEY_KP_DECIMAL
| KEY_KP_DIVIDE
| KEY_KP_MULTIPLY
| KEY_KP_SUBTRACT
| KEY_KP_ADD
| KEY_KP_ENTER
| KEY_KP_EQUAL
| KEY_LEFT_SHIFT
| KEY_LEFT_CONTROL
| KEY_LEFT_ALT
| KEY_LEFT_SUPER
| KEY_RIGHT_SHIFT
| KEY_RIGHT_CONTROL
| KEY_RIGHT_ALT
| KEY_RIGHT_SUPER
| KEY_MENU
(* user's chosen key mappings *)
type user_key =
{ left: key_code
, right: key_code
, up: key_code
, down: key_code
, jump: key_code
, attack: key_code
}
end
structure CoreKey :> CORE_KEY =
struct
(* enumeration of keys, following GLFW names
* taken from https://www.glfw.org/docs/latest/group__keys.html
* note that there is no dependency on GLFW here: it is just a plain datatype.
* *)
datatype key_code =
KEY_SPACE
| KEY_APOSTROPHE
| KEY_COMMA
| KEY_MINUS
| KEY_PERIOD
| KEY_SLASH
| KEY_0
| KEY_1
| KEY_2
| KEY_3
| KEY_4
| KEY_5
| KEY_6
| KEY_7
| KEY_8
| KEY_9
| KEY_SEMICOLON
| KEY_EQUAL
| KEY_A
| KEY_B
| KEY_C
| KEY_D
| KEY_E
| KEY_F
| KEY_G
| KEY_H
| KEY_I
| KEY_J
| KEY_K
| KEY_L
| KEY_M
| KEY_N
| KEY_O
| KEY_P
| KEY_Q
| KEY_R
| KEY_S
| KEY_T
| KEY_U
| KEY_V
| KEY_W
| KEY_X
| KEY_Y
| KEY_Z
| KEY_LEFT_BRACKET
| KEY_BACKSLASH
| KEY_RIGHT_BRACKET
| KEY_GRAVE_ACCENT
| KEY_WORLD_1
| KEY_WORLD_2
| KEY_ESCAPE
| KEY_ENTER
| KEY_TAB
| KEY_BACKSPACE
| KEY_INSERT
| KEY_DELETE
| KEY_LEFT
| KEY_RIGHT
| KEY_DOWN
| KEY_UP
| KEY_PAGE_UP
| KEY_PAGE_DOWN
| KEY_HOME
| KEY_END
| KEY_CAPS_LOCK
| KEY_SCROLL_LOCK
| KEY_NUM_LOCK
| KEY_PRINT_SCREEN
| KEY_PAUSE
| KEY_F1
| KEY_F2
| KEY_F3
| KEY_F4
| KEY_F5
| KEY_F6
| KEY_F7
| KEY_F8
| KEY_F9
| KEY_F10
| KEY_F11
| KEY_F12
| KEY_F13
| KEY_F14
| KEY_F15
| KEY_F16
| KEY_F17
| KEY_F18
| KEY_F19
| KEY_F20
| KEY_F21
| KEY_F22
| KEY_F23
| KEY_F24
| KEY_F25
| KEY_KP_0
| KEY_KP_1
| KEY_KP_2
| KEY_KP_3
| KEY_KP_4
| KEY_KP_5
| KEY_KP_6
| KEY_KP_7
| KEY_KP_8
| KEY_KP_9
| KEY_KP_DECIMAL
| KEY_KP_DIVIDE
| KEY_KP_MULTIPLY
| KEY_KP_SUBTRACT
| KEY_KP_ADD
| KEY_KP_ENTER
| KEY_KP_EQUAL
| KEY_LEFT_SHIFT
| KEY_LEFT_CONTROL
| KEY_LEFT_ALT
| KEY_LEFT_SUPER
| KEY_RIGHT_SHIFT
| KEY_RIGHT_CONTROL
| KEY_RIGHT_ALT
| KEY_RIGHT_SUPER
| KEY_MENU
(* user's chosen key mappings *)
type user_key =
{ left: key_code
, right: key_code
, up: key_code
, down: key_code
, jump: key_code
, attack: key_code
}
end