sig
  type log_level =
      [ `CRITICAL
      | `DEBUG
      | `ERROR
      | `FLAG_FATAL
      | `FLAG_RECURSION
      | `INFO
      | `MESSAGE
      | `WARNING ]
  val log_level :
    [< `CRITICAL
     | `CUSTOM of int
     | `DEBUG
     | `ERROR
     | `FLAG_FATAL
     | `FLAG_RECURSION
     | `INFO
     | `MESSAGE
     | `WARNING ] ->
    int
  type log_handler
  val set_log_handler :
    ?domain:string ->
    levels:Glib.Message.log_level list ->
    (level:int -> string -> unit) -> Glib.Message.log_handler
  val remove_log_handler : Glib.Message.log_handler -> unit
  val set_always_fatal : Glib.Message.log_level list -> unit
  val set_fatal_mask :
    ?domain:string ->
    [ `CRITICAL
    | `CUSTOM of int
    | `DEBUG
    | `ERROR
    | `FLAG_FATAL
    | `FLAG_RECURSION
    | `INFO
    | `MESSAGE
    | `WARNING ] list -> unit
  val log :
    ?domain:string ->
    [ `CRITICAL
    | `CUSTOM of int
    | `DEBUG
    | `ERROR
    | `FLAG_FATAL
    | `FLAG_RECURSION
    | `INFO
    | `MESSAGE
    | `WARNING ] -> ('a, unit, string, unit) Pervasives.format4 -> 'a
end