sig
  type error =
      E_task_not_supported
    | E_unexpected_message
    | E_ill_formed_message
    | E_message_too_long
    | E_disconnected
    | E_invalid_print_destination
  exception Error of Procord_protocol.error
  val error : Procord_protocol.error -> 'a
  val error_message : Procord_protocol.error -> string
  type custom_destination = char
  type print_destination =
      D_stdout
    | D_stderr
    | D_custom of Procord_protocol.custom_destination
  type message =
      M_none
    | M_value of string
    | M_task_name of string
    | M_exception of string
    | M_unknown_exception of string
    | M_error of Procord_protocol.error
    | M_print of Procord_protocol.print_destination * string
    | M_flush of Procord_protocol.print_destination
  val set_max_message_size : int -> unit
  val send : 'a Procord_connection.t -> Procord_protocol.message -> unit
  val send_value : 'a Procord_connection.t -> string -> unit
  val send_task_name : 'a Procord_connection.t -> string -> unit
  val send_exception : 'a Procord_connection.t -> string -> unit
  val send_unknown_exception : 'a Procord_connection.t -> string -> unit
  val send_error : 'a Procord_connection.t -> Procord_protocol.error -> unit
  val send_print :
    'a Procord_connection.t ->
    Procord_protocol.print_destination -> string -> unit
  val send_flush :
    'a Procord_connection.t -> Procord_protocol.print_destination -> unit
  val receive : 'a Procord_connection.t -> Procord_protocol.message
  val blocking_receive : 'a Procord_connection.t -> Procord_protocol.message
  val blocking_receive_task_name : 'a Procord_connection.t -> string
  val blocking_receive_value : 'a Procord_connection.t -> string
  val register_destination :
    Procord_protocol.custom_destination -> Format.formatter -> unit
  val formatter_of_destination :
    Procord_protocol.print_destination -> Format.formatter option
end