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