sig
  val set_display_message : (?to_utf8:bool -> string -> unit) -> unit
  val set_error_message : (?to_utf8:bool -> string -> unit) -> unit
  val set_warning_message : (?to_utf8:bool -> string -> unit) -> unit
  val display_message : ?to_utf8:bool -> string -> unit
  val error_message : ?to_utf8:bool -> string -> unit
  val warning_message : ?to_utf8:bool -> string -> unit
  val get_display_message : unit -> ?to_utf8:bool -> string -> unit
  val get_error_message : unit -> ?to_utf8:bool -> string -> unit
  val get_warning_message : unit -> ?to_utf8:bool -> string -> unit
end