sig
type t
external isKeyDown : input:SFInput.t -> key:SFKey.t -> bool
= "caml_sfInput_IsKeyDown"
external isMouseButtonDown :
input:SFInput.t -> button:SFEvent.mouse_button -> bool
= "caml_sfInput_IsMouseButtonDown"
external getMousePos : input:SFInput.t -> int * int
= "caml_sfInput_GetMousePos"
external isJoystickButtonDown :
input:SFInput.t -> joyId:int -> button:int -> bool
= "caml_sfInput_IsJoystickButtonDown"
external getJoystickAxis :
input:SFInput.t -> joyId:int -> axis:SFEvent.joy_axis -> float
= "caml_sfInput_GetJoystickAxis"
end