`sig
type ftp_data_prot = [ `C | `E | `P | `S ]
type ftp_protector = {
ftp_wrap_limit : unit -> int;
ftp_wrap_s : string -> string;
ftp_wrap_m : Netsys_types.memory -> Netsys_types.memory -> int;
ftp_unwrap_s : string -> string;
ftp_unwrap_m : Netsys_types.memory -> Netsys_types.memory -> int;
ftp_prot_level : Netftp_data_endpoint.ftp_data_prot;
ftp_close : unit -> unit;
mutable ftp_gssapi_props : Netsys_gssapi.client_props option;
mutable ftp_auth_loop : bool;
}
class type out_record_channel =
object
method close_out : unit -> unit
method flush : unit -> unit
method output : Bytes.t -> int -> int -> int
method output_buffer : Buffer.t -> unit
method output_byte : int -> unit
method output_bytes : Bytes.t -> unit
method output_channel : ?len:int -> Netchannels.in_obj_channel -> unit
method output_char : char -> unit
method output_eor : unit -> unit
method output_string : string -> unit
method pos_out : int
method really_output : Bytes.t -> int -> int -> unit
method really_output_string : string -> int -> int -> unit
end
class type in_record_channel =
object
method close_in : unit -> unit
method input : Bytes.t -> int -> int -> int
method input_byte : unit -> int
method input_char : unit -> char
method input_eor : unit -> unit
method input_line : unit -> string
method pos_in : int
method really_input : Bytes.t -> int -> int -> unit
method really_input_string : int -> string
end
type local_receiver =
[ `File_structure of Netchannels.out_obj_channel
| `Record_structure of Netftp_data_endpoint.out_record_channel ]
type local_sender =
[ `File_structure of Netchannels.in_obj_channel
| `Record_structure of Netftp_data_endpoint.in_record_channel ]
type transmission_mode = [ `Block_mode | `Stream_mode ]
type descr_state = [ `Clean | `Down | `Transfer_in_progress ]
type text_data_repr =
[ `ASCII of Netconversion.encoding
| `ASCII_unix of Netconversion.encoding
| `EBCDIC of Netconversion.encoding ]
class write_out_record_channel :
repr:Netftp_data_endpoint.text_data_repr ->
Netchannels.out_obj_channel -> out_record_channel
class read_in_record_channel :
repr:Netftp_data_endpoint.text_data_repr ->
Netchannels.in_obj_channel -> in_record_channel
class data_converter :
fromrepr:Netftp_data_endpoint.text_data_repr ->
torepr:Netftp_data_endpoint.text_data_repr -> Netchannels.io_obj_channel
class type ftp_data_engine =
object
method abort : unit -> unit
method descr : Unix.file_descr
method descr_state : Netftp_data_endpoint.descr_state
method event_system : Unixqueue.event_system
method request_notification : (unit -> bool) -> unit
method request_proxy_notification :
(unit Uq_engines.engine -> bool) -> unit
method state : unit Uq_engines.engine_state
end
class ftp_data_receiver :
?tls:(module Netsys_crypto_types.TLS_CONFIG) * string option *
string option ->
?protector:Netftp_data_endpoint.ftp_protector ->
esys:Unixqueue.event_system ->
mode:Netftp_data_endpoint.transmission_mode ->
local_receiver:Netftp_data_endpoint.local_receiver ->
descr:Unix.file_descr ->
timeout:float ->
timeout_exn:exn ->
unit ->
object
method abort : unit -> unit
method descr : Unix.file_descr
method descr_state : descr_state
method event_system : Unixqueue.event_system
method local_receiver : Netftp_data_endpoint.local_receiver
method request_notification : (unit -> bool) -> unit
method request_proxy_notification :
(unit Uq_engines.engine -> bool) -> unit
method state : unit Uq_engines.engine_state
end
class ftp_data_sender :
?tls:(module Netsys_crypto_types.TLS_CONFIG) * string option *
string option ->
?protector:Netftp_data_endpoint.ftp_protector ->
esys:Unixqueue.event_system ->
mode:Netftp_data_endpoint.transmission_mode ->
local_sender:Netftp_data_endpoint.local_sender ->
descr:Unix.file_descr ->
timeout:float ->
timeout_exn:exn ->
unit ->
object
method abort : unit -> unit
method descr : Unix.file_descr
method descr_state : descr_state
method event_system : Unixqueue.event_system
method local_sender : Netftp_data_endpoint.local_sender
method request_notification : (unit -> bool) -> unit
method request_proxy_notification :
(unit Uq_engines.engine -> bool) -> unit
method state : unit Uq_engines.engine_state
end
end`