Source file `LZ4_bindings.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
open Ctypes

module C(F: Cstubs.FOREIGN) = struct
  let compressBound = F.(foreign "LZ4_compressBound" (int @-> returning int))
  let b_compress    = F.(foreign "LZ4_compress_default"
                                (ocaml_bytes @-> ocaml_bytes @-> int @-> int @-> returning int))
  let ba_compress   = F.(foreign "LZ4_compress_default"
                                (ptr char @-> ptr char @-> int @-> int @-> returning int))
  let b_decompress  = F.(foreign "LZ4_decompress_safe"
                                (ocaml_bytes @-> ocaml_bytes @-> int @-> int @-> returning int))
  let ba_decompress = F.(foreign "LZ4_decompress_safe"
                                (ptr char @-> ptr char @-> int @-> int @-> returning int))
  let version_number = F.(foreign "LZ4_versionNumber" (void @-> returning int))
end