sig val iter : (Log.event -> unit) -> unit val dump_messages : unit -> unit val self : State.t val reset_once_flag : unit -> unit val nb_errors : unit -> int val nb_warnings : unit -> int val nb_messages : unit -> int end