sig
  module Text :
    sig
      val iter_lines_of_channel :
        (string -> unit) -> Pervasives.in_channel -> unit
      val iter_lines_of_file : (string -> unit) -> string -> unit
      val lines_of_channel : Pervasives.in_channel -> string list
      val lines_of_file : string -> string list
      val channel_contents : Pervasives.in_channel -> string
      val file_contents : ?bin:bool -> string -> string
      val save : string -> string -> unit
      val save_lines : string -> string list -> unit
      exception Skip
      val map : ('a -> 'b) -> 'a list -> 'b list
      val rev_map : ('a -> 'b) -> 'a list -> 'b list
      val fold_left : ('a -> 'b -> 'a) -> 'a -> 'b list -> 'a
      val fold_right : ('a -> 'b -> 'b) -> 'a list -> 'b -> 'b
      val map_lines_of_channel :
        (string -> 'a) -> Pervasives.in_channel -> 'a list
      val map_lines_of_file : (string -> 'a) -> string -> 'a list
    end
  module Fixed :
    sig
      val chop_spaces : string -> string
      val int : string -> int
      val float : string -> float
    end
  module Directory :
    sig
      val list : ?absolute:bool -> ?path:bool -> string -> string list
      val is_dir : ?nofollow:bool -> string -> bool
    end
  module Glob :
    sig
      val scan :
        ?absolute:bool ->
        ?path:bool ->
        ?root:string ->
        ?nofollow:bool -> (string -> unit) -> (string -> bool) list -> unit
      val lscan :
        ?rev:bool ->
        ?absolute:bool ->
        ?path:bool ->
        ?root:string list ->
        ?nofollow:bool ->
        (string list -> unit) -> (string -> bool) list -> unit
      val list :
        ?absolute:bool ->
        ?path:bool ->
        ?root:string ->
        ?nofollow:bool -> ?sort:bool -> (string -> bool) list -> string list
      val llist :
        ?rev:bool ->
        ?absolute:bool ->
        ?path:bool ->
        ?root:string list ->
        ?nofollow:bool ->
        ?sort:bool -> (string -> bool) list -> string list list
    end
end