firmex/lib/archive/zip.ml

(** This modules handle zip archive format

    ZIP file format is actually really easy to parse
    the file is a list of files compressed
    each entry is appended with a header

    ZIP file supports multiple compression algorithm,
    the most frequently used is LZMA
    files can be encrypted using a weak algorithm
    which has been deprecated or AES
    *)

type t = { file : string; typ : string }

let signature = Bytes.of_string "PK\x03\x04"

let from file = { file = file; typ = "zip" }