/usr/lib/ocaml/extlib/unzip.mli is in libextlib-ocaml-dev 1.5.4-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 | (*
* Unzip - inflate format decompression algorithm
* Copyright (C) 2004 Nicolas Cannasse
* Compliant with RFC 1950 and 1951
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version,
* with the special exception on linking described in file LICENSE.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
*)
(** Decompression algorithm.
Unzip decompression algorithm is compliant with RFC 1950 and 1951 which
are describing the "inflate" algorithm used in most popular file formats.
This format is also the one used by the popular ZLib library.
*)
type error_msg =
| Invalid_huffman
| Invalid_data
| Invalid_crc
| Truncated_data
| Unsupported_dictionary
exception Error of error_msg
val inflate : ?header:bool -> IO.input -> IO.input
(** wrap an input using "inflate" decompression algorithm. raises [Error] if
an error occurs (this can only be caused by malformed input data). *)
type t
val inflate_init : ?header:bool -> IO.input -> t
val inflate_data : t -> string -> int -> int -> int
|