28 |
external update_crc: int32 -> string -> int -> int -> int32 |
external update_crc: int32 -> string -> int -> int -> int32 |
29 |
= "camlzip_update_crc32" |
= "camlzip_update_crc32" |
30 |
|
|
31 |
|
external zlib_version : unit -> string = "camlzip_zlibversion" |
32 |
|
|
33 |
|
let zlib_version_num () = |
34 |
|
begin |
35 |
|
try |
36 |
|
let s = Printf.sprintf "%s" (zlib_version ()) in s |
37 |
|
with e -> "" |
38 |
|
end |
39 |
|
|
40 |
let buffer_size = 1024 |
let buffer_size = 1024 |
41 |
|
|
42 |
let compress ?(level = 6) ?(header = true) refill flush = |
let compress ?(level = 6) ?(header = true) refill flush = |