package zstd

You can search for identifiers within the package.

in-package search v0.2.0

Bindings to zstd compression library

Install

Dune Dependency

github.com Edit opam file Versions (3)

Authors

Y

ygrek

Maintainers

Y

ygrek@autistici.org

Sources

ocaml-zstd-0.3.tar.gz

md5=632a2e170d8a233365899d152974e085

sha256=d3f12f6ecbcedc5920ec24cc2c1679e79a7a5db77bb8f69bda3ff8915585bcb3

sha512=58922944a24b4314207dde5dadf268ac6ca3b3e181ddba257aef1e5a31e8b55c55e26e3b5f4c46a2c748195d1406f70c7581c2605839bf81056aa07c64fff73b

doc/src/zstd.stubs/zstd_stubs.ml.html

Source file `zstd_stubs.ml`

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
open Ctypes

module Bindings
  (F : Cstubs.FOREIGN) =
struct
  open F

  let versionNumber = foreign "ZSTD_versionNumber" (void @-> returning int)
  let compressBound = foreign "ZSTD_compressBound" (size_t @-> returning size_t)
  let getErrorName = foreign "ZSTD_getErrorName" (size_t @-> returning string)
  let isError = foreign "ZSTD_isError" (size_t @-> returning bool)

  let do_compress = foreign "ZSTD_compress" (ptr void @-> size_t @-> string @-> size_t @-> int @-> returning size_t)
  let do_decompress = foreign "ZSTD_decompress" (ptr void @-> size_t @-> string @-> size_t @-> returning size_t)

  let cctx : [`CCtx] structure typ = structure "ZSTD_CCtx_s"
  let create_cctx = foreign "ZSTD_createCCtx" (void @-> returning (ptr cctx))
  let free_cctx = foreign "ZSTD_freeCCtx" (ptr cctx @-> returning size_t)

  let do_compress_cctx = foreign "ZSTD_compressCCtx" (ptr cctx @-> ptr void @-> size_t @-> string @-> size_t @-> int @-> returning size_t)

  let dctx : [`DCtx] structure typ = structure "ZSTD_DCtx_s"
  let create_dctx = foreign "ZSTD_createDCtx" (void @-> returning (ptr dctx))
  let free_dctx = foreign "ZSTD_freeDCtx" (ptr dctx @-> returning size_t)

  let do_decompress_dctx = foreign "ZSTD_decompressDCtx" (ptr dctx @-> ptr void @-> size_t @-> string @-> size_t @-> returning size_t)

  let do_compress_dict = foreign "ZSTD_compress_usingDict" (ptr cctx @-> ptr void @-> size_t @-> string @-> size_t @->
    string @-> size_t @-> int @-> returning size_t)

  let do_decompress_dict = foreign "ZSTD_decompress_usingDict" (ptr dctx @-> ptr void @-> size_t @-> string @-> size_t @->
    string @-> size_t @-> returning size_t)

end