sig
  val gzip_open_file : string -> IO.input
  val bzip_open_file : string -> IO.input
  val std_open_file : string -> IO.input
  val open_file : string -> IO.input
  val open_ch : Pervasives.in_channel -> IO.input
  val close_ch : IO.input -> unit
  val parse_uri :
    string ->
    Url.input_scheme *
    (string option * string option * string option * string option * string) *
    string option
  val guess_format : string list list -> Url.input_scheme
end