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