sig
  external destroy : SFFtp.response -> unit = "caml_sfFtpResponse_destroy"
  external isOk : SFFtp.response -> bool = "caml_sfFtpResponse_isOk"
  external getStatus : SFFtp.response -> SFFtp.status
    = "caml_sfFtpResponse_getStatus"
  external getMessage : SFFtp.response -> string
    = "caml_sfFtpResponse_getMessage"
end