150 lines
3.3 KiB
OCaml
150 lines
3.3 KiB
OCaml
open GLFW
|
|
module F = Fmt
|
|
|
|
let pp_key : key F.t =
|
|
fun ppf k ->
|
|
F.pf ppf
|
|
GLFW.(
|
|
match k with
|
|
| Unknown -> "Unknown"
|
|
| Space -> "Space"
|
|
| Apostrophe -> "Apostrophe"
|
|
| Comma -> "Comma"
|
|
| Minus -> "Minus"
|
|
| Period -> "Period"
|
|
| Slash -> "Slash"
|
|
| Num0 -> "Num0"
|
|
| Num1 -> "Num1"
|
|
| Num2 -> "Num2"
|
|
| Num3 -> "Num3"
|
|
| Num4 -> "Num4"
|
|
| Num5 -> "Num5"
|
|
| Num6 -> "Num6"
|
|
| Num7 -> "Num7"
|
|
| Num8 -> "Num8"
|
|
| Num9 -> "Num9"
|
|
| Semicolon -> "Semicolon"
|
|
| Equal -> "Equal"
|
|
| A -> "A"
|
|
| B -> "B"
|
|
| C -> "C"
|
|
| D -> "D"
|
|
| E -> "E"
|
|
| F -> "F"
|
|
| G -> "G"
|
|
| H -> "H"
|
|
| I -> "I"
|
|
| J -> "J"
|
|
| K -> "K"
|
|
| L -> "L"
|
|
| M -> "M"
|
|
| N -> "N"
|
|
| O -> "O"
|
|
| P -> "P"
|
|
| Q -> "Q"
|
|
| R -> "R"
|
|
| S -> "S"
|
|
| T -> "T"
|
|
| U -> "U"
|
|
| V -> "V"
|
|
| W -> "W"
|
|
| X -> "X"
|
|
| Y -> "Y"
|
|
| Z -> "Z"
|
|
| LeftBracket -> "LeftBracket"
|
|
| Backslash -> "Backslash"
|
|
| RightBracket -> "RightBracket"
|
|
| GraveAccent -> "GraveAccent"
|
|
| World1 -> "World1"
|
|
| World2 -> "World2"
|
|
| Escape -> "Escape"
|
|
| Enter -> "Enter"
|
|
| Tab -> "Tab"
|
|
| Backspace -> "Backspace"
|
|
| Insert -> "Insert"
|
|
| Delete -> "Delete"
|
|
| Right -> "Right"
|
|
| Left -> "Left"
|
|
| Down -> "Down"
|
|
| Up -> "Up"
|
|
| PageUp -> "PageUp"
|
|
| PageDown -> "PageDown"
|
|
| Home -> "Home"
|
|
| End -> "End"
|
|
| CapsLock -> "CapsLock"
|
|
| ScrollLock -> "ScrollLock"
|
|
| NumLock -> "NumLock"
|
|
| PrintScreen -> "PrintScreen"
|
|
| Pause -> "Pause"
|
|
| F1 -> "F1"
|
|
| F2 -> "F2"
|
|
| F3 -> "F3"
|
|
| F4 -> "F4"
|
|
| F5 -> "F5"
|
|
| F6 -> "F6"
|
|
| F7 -> "F7"
|
|
| F8 -> "F8"
|
|
| F9 -> "F9"
|
|
| F10 -> "F10"
|
|
| F11 -> "F11"
|
|
| F12 -> "F12"
|
|
| F13 -> "F13"
|
|
| F14 -> "F14"
|
|
| F15 -> "F15"
|
|
| F16 -> "F16"
|
|
| F17 -> "F17"
|
|
| F18 -> "F18"
|
|
| F19 -> "F19"
|
|
| F20 -> "F20"
|
|
| F21 -> "F21"
|
|
| F22 -> "F22"
|
|
| F23 -> "F23"
|
|
| F24 -> "F24"
|
|
| F25 -> "F25"
|
|
| Kp0 -> "Kp0"
|
|
| Kp1 -> "Kp1"
|
|
| Kp2 -> "Kp2"
|
|
| Kp3 -> "Kp3"
|
|
| Kp4 -> "Kp4"
|
|
| Kp5 -> "Kp5"
|
|
| Kp6 -> "Kp6"
|
|
| Kp7 -> "Kp7"
|
|
| Kp8 -> "Kp8"
|
|
| Kp9 -> "Kp9"
|
|
| KpDecimal -> "KpDecimal"
|
|
| KpDivide -> "KpDivide"
|
|
| KpMultiply -> "KpMultiply"
|
|
| KpSubtract -> "KpSubtract"
|
|
| KpAdd -> "KpAdd"
|
|
| KpEnter -> "KpEnter"
|
|
| KpEqual -> "KpEqual"
|
|
| LeftShift -> "LeftShift"
|
|
| LeftControl -> "LeftControl"
|
|
| LeftAlt -> "LeftAlt"
|
|
| LeftSuper -> "LeftSuper"
|
|
| RightShift -> "RightShift"
|
|
| RightControl -> "RightControl"
|
|
| RightAlt -> "RightAlt"
|
|
| RightSuper -> "RightSuper"
|
|
| Menu -> "Menu")
|
|
|
|
let pp_key_action : GLFW.key_action F.t =
|
|
fun ppf s ->
|
|
F.pf ppf
|
|
GLFW.(
|
|
match s with
|
|
| Release -> "Release"
|
|
| Press -> "Press"
|
|
| Repeat -> "Repeat")
|
|
|
|
let pp_mods =
|
|
F.(
|
|
list (fun ppf s ->
|
|
pf ppf
|
|
GLFW.(
|
|
match s with
|
|
| Shift -> "Shift"
|
|
| Control -> "Control"
|
|
| Alt -> "Alt"
|
|
| Super -> "Super")))
|