module Main:The Main Event Loopsig
..end
type
t
val create : bool -> t
val iteration : bool -> bool
val pending : unit -> bool
val is_running : t -> bool
val quit : t -> unit
val destroy : t -> unit
typelocale_category =
[ `ALL | `COLLATE | `CTYPE | `MESSAGES | `MONETARY | `NUMERIC | `TIME ]
val setlocale : locale_category -> string option -> string