sig
  type mode
  exception Quit
  val add_mode :
    ?super:bool -> string -> (Sdlevent.event -> unit) -> Input.mode
  val set_mode : Input.mode -> unit
  val process_events : ?events_per_frame:int -> unit -> bool
  val add_action :
    ?mode:Input.mode -> string -> (int -> unit) -> (int -> unit) -> unit
  val get_real_mode : unit -> Input.mode
  val set_repeat_handler : (unit -> bool) option -> unit
end