Module Slurp

module Slurp: sig .. end

type 'a entry =

`\|`	`Dir of string * string * My_unix.stats Lazy.t * 'a * 'a entry list Lazy.t`
`\|`	`File of string * string * My_unix.stats Lazy.t * 'a`
`\|`	`Error of exn`
`\|`	`Nothing`

val (/) : string -> string -> string

val filter : (string -> string -> 'a -> bool) -> 'a entry -> 'a entry

val real_slurp : string -> unit entry

val split : string -> string list

val join : string list -> string

val add : string -> string list -> unit entry list -> unit entry list

val slurp_with_find : string -> unit entry

val slurp : string -> unit entry

val print : (Format.formatter -> 'a -> unit) ->
       Format.formatter -> 'a entry -> unit

val fold : (string -> string -> 'a -> 'b -> 'b) -> 'a entry -> 'b -> 'b

val map : (string -> string -> 'a -> 'b) -> 'a entry -> 'b entry

val force : 'a entry -> unit