sig val cots_connect : string -> string -> Unix.file_descr type connector = [ `Direct of Rpc_client.connector * Rpc.protocol | `Keyenvoy of string ] val keyserv_connector : Rpc_xti_client.connector end
