let read_credentials (_ : Unix.file_descr) : (int * int * int) = raise (Not_available "read_credentials")