sig
class type ftp_stream_fs =
object
method close : unit -> unit
method copy : Netfs.copy_flag list -> string -> string -> unit
method ftp_client : Ftp_client.ftp_client
method last_ftp_state : Ftp_client.ftp_state
method mkdir : Netfs.mkdir_flag list -> string -> unit
method nominal_dot_dot : bool
method path_encoding : Netconversion.encoding option
method path_exclusions : (int * int) list
method read :
Netfs.read_flag list -> string -> Netchannels.in_obj_channel
method readdir : Netfs.readdir_flag list -> string -> string list
method readlink : Netfs.readlink_flag list -> string -> string
method remove : Netfs.remove_flag list -> string -> unit
method rename : Netfs.rename_flag list -> string -> string -> unit
method rmdir : Netfs.rmdir_flag list -> string -> unit
method size : Netfs.size_flag list -> string -> int64
method symlink : Netfs.symlink_flag list -> string -> string -> unit
method test : Netfs.test_flag list -> string -> Netfs.test_type -> bool
method test_list :
Netfs.test_flag list -> string -> Netfs.test_type list -> bool list
method write :
Netfs.write_flag list -> string -> Netchannels.out_obj_channel
end
class ftp_fs :
?config_client:(Ftp_client.ftp_client -> unit) ->
?tmp_directory:string ->
?tmp_prefix:string ->
?get_password:(unit -> string) ->
?get_account:(unit -> string) ->
?keep_open:bool -> string -> ftp_stream_fs
val ftp_fs :
?config_client:(Ftp_client.ftp_client -> unit) ->
?tmp_directory:string ->
?tmp_prefix:string ->
?get_password:(unit -> string) ->
?get_account:(unit -> string) ->
?keep_open:bool -> string -> Ftp_fs.ftp_stream_fs
end
