`sig
type read_flag =
[ `Binary
| `Dummy
| `Header of (string * string) list
| `Skip of int64
| `Streaming ]
type read_file_flag =
[ `Binary | `Dummy | `Header of (string * string) list ]
type write_flag =
[ `Binary
| `Create
| `Dummy
| `Exclusive
| `Header of (string * string) list
| `Streaming
| `Truncate ]
type write_file_flag =
[ `Binary
| `Create
| `Dummy
| `Exclusive
| `Header of (string * string) list
| `Link
| `Truncate ]
class type http_stream_fs =
object
method cancel : unit -> unit
method copy : Netfs.copy_flag list -> string -> string -> unit
method last_response_header : Nethttp.http_header
method last_response_status : Nethttp.http_status * int * string
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 pipeline : Http_client.pipeline
method read :
Http_fs.read_flag list -> string -> Netchannels.in_obj_channel
method read_file :
Http_fs.read_file_flag list -> string -> Netfs.local_file
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 translate : string -> string
method write :
Http_fs.write_flag list -> string -> Netchannels.out_obj_channel
method write_file :
Http_fs.write_file_flag list -> string -> Netfs.local_file -> unit
end
class http_fs :
?config_pipeline:(Http_client.pipeline -> unit) ->
?streaming:bool ->
?tmp_directory:string ->
?tmp_prefix:string ->
?path_encoding:Netconversion.encoding ->
?enable_read_for_directories:bool ->
?enable_ftp:bool -> string -> http_stream_fs
val http_fs :
?config_pipeline:(Http_client.pipeline -> unit) ->
?streaming:bool ->
?tmp_directory:string ->
?tmp_prefix:string ->
?path_encoding:Netconversion.encoding ->
?enable_read_for_directories:bool ->
?enable_ftp:bool -> string -> Http_fs.http_stream_fs
val find_flag : ('a -> 'b option) -> 'a list -> 'b
end`