`sig
class type out_record_channel =
object
method close_out : unit -> unit
method flush : unit -> unit
method output : string -> int -> int -> int
method output_buffer : Buffer.t -> unit
method output_byte : int -> 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 : string -> int -> int -> unit
end
class type in_record_channel =
object
method close_in : unit -> unit
method input : string -> 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 : string -> int -> int -> unit
end
type local_receiver =
[ `File_structure of Netchannels.out_obj_channel
| `Record_structure of Ftp_data_endpoint.out_record_channel ]
type local_sender =
[ `File_structure of Netchannels.in_obj_channel
| `Record_structure of Ftp_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:Ftp_data_endpoint.text_data_repr ->
Netchannels.out_obj_channel -> out_record_channel
class read_in_record_channel :
repr:Ftp_data_endpoint.text_data_repr ->
Netchannels.in_obj_channel -> in_record_channel
class data_converter :
fromrepr:Ftp_data_endpoint.text_data_repr ->
torepr:Ftp_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 : Ftp_data_endpoint.descr_state
method event_system : Unixqueue.event_system
method request_notification : (unit -> bool) -> unit
method state : unit Uq_engines.engine_state
end
class ftp_data_receiver :
esys:Unixqueue.event_system ->
mode:Ftp_data_endpoint.transmission_mode ->
local_receiver:Ftp_data_endpoint.local_receiver ->
descr:Unix.file_descr ->
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 : Ftp_data_endpoint.local_receiver
method request_notification : (unit -> bool) -> unit
method state : unit Uq_engines.engine_state
end
class ftp_data_sender :
esys:Unixqueue.event_system ->
mode:Ftp_data_endpoint.transmission_mode ->
local_sender:Ftp_data_endpoint.local_sender ->
descr:Unix.file_descr ->
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 : Ftp_data_endpoint.local_sender
method request_notification : (unit -> bool) -> unit
method state : unit Uq_engines.engine_state
end
end`