module Read: sig
.. end
type ('a, 'b)
input = [ `Callback of
('a, 'b) ArchiveLwt.open_callback * 'b ArchiveLwt.read_callback *
'b ArchiveLwt.skip_callback * 'b ArchiveLwt.close_callback * 'a
| `Filename of ArchiveLow.filename ]
type ('a, 'b)
t
val create : ('a, 'b) input -> ('a, 'b) t Lwt.t
val file_exists : ('a, 'b) t -> ArchiveLow.filename -> bool
val stat : ('a, 'b) t -> ArchiveLow.filename -> Unix.LargeFile.stats
val is_directory : ('a, 'b) t -> ArchiveLow.filename -> bool
val entry : ('a, 'b) t -> ArchiveLow.filename -> ArchiveLow.Entry.t
val with_file : ('a, 'b) t ->
ArchiveLow.filename ->
(ArchiveLow.Entry.t -> 'c Lwt.t) ->
('c -> string -> int -> 'c Lwt.t) -> ('c -> 'd Lwt.t) -> 'd Lwt.t
val content : ('a, 'b) t -> ArchiveLow.filename -> string Lwt.t
val readdir : ('a, 'b) t ->
ArchiveLow.filename -> ArchiveLow.filename array